(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     21784,        720]
NotebookOptionsPosition[     20242,        664]
NotebookOutlinePosition[     20616,        680]
CellTagsIndexPosition[     20573,        677]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:5c40\:90e8\:5750\:6807\:7cfb\:7684\:786e\:5b9a", "Title",
 CellChangeTimes->{{3.6291569401948853`*^9, 3.6291569554226007`*^9}}],

Cell[CellGroupData[{

Cell["\:6307\:5b9a\:5c40\:90e8y\:8f74", "Section",
 CellChangeTimes->{{3.629179746597025*^9, 3.6291797670954604`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$Assumptions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["a", "x"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["a", "y"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["a", "z"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["a", "x", "2"], "+", 
       SubsuperscriptBox["a", "y", "2"], "+", 
       SubsuperscriptBox["a", "z", "2"]}], "\[Equal]", "1"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["b", "x"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["b", "y"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["b", "z"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["b", "x", "2"], "+", 
       SubsuperscriptBox["b", "y", "2"], "+", 
       SubsuperscriptBox["b", "z", "2"]}], "\[Equal]", "1"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["a", "x"], " ", 
        SubscriptBox["b", "x"]}], "+", 
       RowBox[{
        SubscriptBox["a", "y"], " ", 
        SubscriptBox["b", "y"]}], "+", 
       RowBox[{
        SubscriptBox["a", "z"], " ", 
        SubscriptBox["b", "z"]}]}], "==", "0"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l", "=", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["a", "x"], ",", 
     SubscriptBox["a", "y"], ",", 
     SubscriptBox["a", "z"]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["b", "x"], ",", 
     SubscriptBox["b", "y"], ",", 
     SubscriptBox["b", "z"]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"n", "=", 
  RowBox[{"l", "\[Cross]", "m"}]}], "\[IndentingNewLine]", 
 RowBox[{"Ln", "=", 
  SqrtBox[
   RowBox[{"Simplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"n", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}]]}]}], "Input",\

 CellChangeTimes->{{3.629179807811531*^9, 3.6291799334229507`*^9}, {
  3.629179987118244*^9, 3.629179994341057*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "z"]}], " ", 
     SubscriptBox["b", "y"]}], "+", 
    RowBox[{
     SubscriptBox["a", "y"], " ", 
     SubscriptBox["b", "z"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "z"], " ", 
     SubscriptBox["b", "x"]}], "-", 
    RowBox[{
     SubscriptBox["a", "x"], " ", 
     SubscriptBox["b", "z"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "y"]}], " ", 
     SubscriptBox["b", "x"]}], "+", 
    RowBox[{
     SubscriptBox["a", "x"], " ", 
     SubscriptBox["b", "y"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.6291800110018854`*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.6291800110018854`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:6307\:5b9a\:5c40\:90e8xy\:5e73\:9762\:4e0a\:4e0e\:5c40\:90e8x\:8f74\:4e0d\
\:5e73\:884c\:7684\:4efb\:610f\:5411\:91cf\
\>", "Section",
 CellChangeTimes->{{3.6291815826748505`*^9, 3.62918164530896*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$Assumptions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["a", "x"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["a", "y"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["a", "z"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["a", "x", "2"], "+", 
       SubsuperscriptBox["a", "y", "2"], "+", 
       SubsuperscriptBox["a", "z", "2"]}], "\[Equal]", "1"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["p", "x"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["p", "y"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["p", "z"], "\[Element]", "Reals"}], ","}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l", "=", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["a", "x"], ",", 
     SubscriptBox["a", "y"], ",", 
     SubscriptBox["a", "z"]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["p", "x"], ",", 
     SubscriptBox["p", "y"], ",", 
     SubscriptBox["p", "z"]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"n", "=", 
  RowBox[{"l", "\[Cross]", "m"}]}], "\[IndentingNewLine]", 
 RowBox[{"m", "=", 
  RowBox[{"n", "\[Cross]", "l"}]}], "\[IndentingNewLine]", 
 RowBox[{"Ln", "=", 
  SqrtBox[
   RowBox[{"Simplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"n", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], 
    "]"}]]}], "\[IndentingNewLine]", 
 RowBox[{"Lm", "=", 
  SqrtBox[
   RowBox[{"Simplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"m", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}]]}]}], "Input",\

 CellChangeTimes->{{3.6291817301887074`*^9, 3.629181782526799*^9}, {
  3.6291818230868697`*^9, 3.629181913457827*^9}, {3.629181948776289*^9, 
  3.6291819521926947`*^9}, {3.6291820146864038`*^9, 3.6291820190856113`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "z"]}], " ", 
     SubscriptBox["p", "y"]}], "+", 
    RowBox[{
     SubscriptBox["a", "y"], " ", 
     SubscriptBox["p", "z"]}]}], ",", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "z"], " ", 
     SubscriptBox["p", "x"]}], "-", 
    RowBox[{
     SubscriptBox["a", "x"], " ", 
     SubscriptBox["p", "z"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "y"]}], " ", 
     SubscriptBox["p", "x"]}], "+", 
    RowBox[{
     SubscriptBox["a", "x"], " ", 
     SubscriptBox["p", "y"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.629181918028635*^9, 3.6291819550474997`*^9, 
  3.629182020442814*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["a", "y", "2"], " ", 
     SubscriptBox["p", "x"]}], "+", 
    RowBox[{
     SubsuperscriptBox["a", "z", "2"], " ", 
     SubscriptBox["p", "x"]}], "-", 
    RowBox[{
     SubscriptBox["a", "x"], " ", 
     SubscriptBox["a", "y"], " ", 
     SubscriptBox["p", "y"]}], "-", 
    RowBox[{
     SubscriptBox["a", "x"], " ", 
     SubscriptBox["a", "z"], " ", 
     SubscriptBox["p", "z"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "x"]}], " ", 
     SubscriptBox["a", "y"], " ", 
     SubscriptBox["p", "x"]}], "+", 
    RowBox[{
     SubsuperscriptBox["a", "x", "2"], " ", 
     SubscriptBox["p", "y"]}], "+", 
    RowBox[{
     SubsuperscriptBox["a", "z", "2"], " ", 
     SubscriptBox["p", "y"]}], "-", 
    RowBox[{
     SubscriptBox["a", "y"], " ", 
     SubscriptBox["a", "z"], " ", 
     SubscriptBox["p", "z"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "x"]}], " ", 
     SubscriptBox["a", "z"], " ", 
     SubscriptBox["p", "x"]}], "-", 
    RowBox[{
     SubscriptBox["a", "y"], " ", 
     SubscriptBox["a", "z"], " ", 
     SubscriptBox["p", "y"]}], "+", 
    RowBox[{
     SubsuperscriptBox["a", "x", "2"], " ", 
     SubscriptBox["p", "z"]}], "+", 
    RowBox[{
     SubsuperscriptBox["a", "y", "2"], " ", 
     SubscriptBox["p", "z"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.629181918028635*^9, 3.6291819550474997`*^9, 
  3.629182020442814*^9}],

Cell[BoxData[
 SqrtBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["a", "y"], " ", 
       SubscriptBox["p", "x"]}], "-", 
      RowBox[{
       SubscriptBox["a", "x"], " ", 
       SubscriptBox["p", "y"]}]}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["a", "z"], " ", 
       SubscriptBox["p", "x"]}], "-", 
      RowBox[{
       SubscriptBox["a", "x"], " ", 
       SubscriptBox["p", "z"]}]}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["a", "z"], " ", 
       SubscriptBox["p", "y"]}], "-", 
      RowBox[{
       SubscriptBox["a", "y"], " ", 
       SubscriptBox["p", "z"]}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{3.629181918028635*^9, 3.6291819550474997`*^9, 
  3.6291820205520144`*^9}],

Cell[BoxData[
 SqrtBox[
  RowBox[{
   SubsuperscriptBox["p", "y", "2"], "+", 
   RowBox[{
    SubsuperscriptBox["a", "y", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["p", "x", "2"], "-", 
      SubsuperscriptBox["p", "y", "2"]}], ")"}]}], "-", 
   RowBox[{"2", " ", 
    SubscriptBox["a", "x"], " ", 
    SubscriptBox["a", "z"], " ", 
    SubscriptBox["p", "x"], " ", 
    SubscriptBox["p", "z"]}], "+", 
   SubsuperscriptBox["p", "z", "2"], "-", 
   RowBox[{"2", " ", 
    SubscriptBox["a", "y"], " ", 
    SubscriptBox["p", "y"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["a", "x"], " ", 
       SubscriptBox["p", "x"]}], "+", 
      RowBox[{
       SubscriptBox["a", "z"], " ", 
       SubscriptBox["p", "z"]}]}], ")"}]}], "+", 
   RowBox[{
    SubsuperscriptBox["a", "z", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["p", "x", "2"], "-", 
      SubsuperscriptBox["p", "z", "2"]}], ")"}]}]}]]], "Output",
 CellChangeTimes->{3.629181918028635*^9, 3.6291819550474997`*^9, 
  3.629182020598814*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6307\:5b9a\:7ed5\:5c40\:90e8x\:8f74\:7684\:8f6c\:89d2", "Section",
 CellChangeTimes->{{3.629156991434968*^9, 3.6291570304433126`*^9}}],

Cell["\:5c06\:6574\:4f53y\:8f74\:6295\:5f71\:5230\:5c40\:90e8yz\:5e73\:9762\
\:5f97\:5411\:91cfp\:ff0c\:6307\:5b9a\:5411\:91cfp\:5230\:5c40\:90e8y\:8f74\
\:7684\:8f6c\:89d2\[Gamma]", "Text",
 CellChangeTimes->{{3.62915706817596*^9, 3.6291571469859543`*^9}, {
   3.6291571828042603`*^9, 3.6291572942205563`*^9}, 3.629157325114431*^9, 
   3.629157396730843*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$Assumptions", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["a", "x"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["a", "y"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["a", "z"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["a", "x", "2"], "+", 
       SubsuperscriptBox["a", "y", "2"], "+", 
       SubsuperscriptBox["a", "z", "2"]}], "\[Equal]", "1"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l", "=", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["a", "x"], ",", 
     SubscriptBox["a", "y"], ",", 
     SubscriptBox["a", "z"]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"j", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "=", 
   RowBox[{"j", "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"j", ".", "l"}], ")"}], "*", "l"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"m", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"p", "*", "c"}], "+", 
    RowBox[{
     RowBox[{"l", "\[Cross]", "p"}], "*", "s"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"l", ".", "p"}], ")"}], "*", "l", "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", "c"}], ")"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"n", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"l", "\[Cross]", "m"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Ln", "=", 
  SqrtBox[
   RowBox[{"Simplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"n", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], 
    "]"}]]}], "\[IndentingNewLine]", 
 RowBox[{"Lm", "=", 
  SqrtBox[
   RowBox[{"Simplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"m", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}]]}]}], "Input",\

 CellChangeTimes->{{3.629153444938483*^9, 3.629153463186186*^9}, {
  3.629153500625403*^9, 3.629153602096713*^9}, {3.6291536592277327`*^9, 
  3.6291538056377277`*^9}, {3.629153871226512*^9, 3.629153955451383*^9}, {
  3.629156713171269*^9, 3.629156716530476*^9}, {3.629156748669096*^9, 
  3.629156785982956*^9}, {3.6291722547991714`*^9, 3.6291722570502996`*^9}, {
  3.6291803911121483`*^9, 3.6291803919233503`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", 
     SubscriptBox["a", "x"], " ", 
     SubscriptBox["a", "y"]}], "-", 
    RowBox[{
     RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", 
     SubscriptBox["a", "z"]}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["a", "y", "2"]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", 
     SubscriptBox["a", "x"]}], "-", 
    RowBox[{
     RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", 
     SubscriptBox["a", "y"], " ", 
     SubscriptBox["a", "z"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.62915368080127*^9, 3.629153825938486*^9, 
  3.629153909947616*^9, 3.6291539594163857`*^9, 3.629156793943323*^9, 
  3.629172264584731*^9, 3.6291804005033646`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", 
     SubscriptBox["a", "x"], " ", 
     SubscriptBox["a", "y"]}], "-", 
    RowBox[{
     RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", 
     SubscriptBox["a", "z"]}]}], ",", 
   RowBox[{
    RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["a", "y", "2"]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", 
     SubscriptBox["a", "x"]}], "+", 
    RowBox[{
     RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", 
     SubscriptBox["a", "y"], " ", 
     SubscriptBox["a", "z"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.62915368080127*^9, 3.629153825938486*^9, 
  3.629153909947616*^9, 3.6291539594163857`*^9, 3.629156793943323*^9, 
  3.629172264584731*^9, 3.629180400534565*^9}],

Cell[BoxData[
 SqrtBox[
  RowBox[{"1", "-", 
   SubsuperscriptBox["a", "y", "2"]}]]], "Output",
 CellChangeTimes->{3.62915368080127*^9, 3.629153825938486*^9, 
  3.629153909947616*^9, 3.6291539594163857`*^9, 3.629156793943323*^9, 
  3.629172264584731*^9, 3.629180400565765*^9}],

Cell[BoxData[
 SqrtBox[
  RowBox[{"1", "-", 
   SubsuperscriptBox["a", "y", "2"]}]]], "Output",
 CellChangeTimes->{3.62915368080127*^9, 3.629153825938486*^9, 
  3.629153909947616*^9, 3.6291539594163857`*^9, 3.629156793943323*^9, 
  3.629172264584731*^9, 3.629180400565765*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5c40\:90e8\:5e73\:9762\:5e73\:884c\:4e8e\:6574\:4f53\:5750\:6807\:8f74\
", "Section",
 CellChangeTimes->{{3.629179042598997*^9, 3.629179104421905*^9}, {
  3.6291791668064137`*^9, 3.629179173873226*^9}}],

Cell["\:5c40\:90e8xy\:5e73\:9762\:5e73\:884c\:4e8e\:6574\:4f53z\:8f74\:ff08\
\:5f53\:5c40\:90e8x\:8f74\:5e73\:884c\:4e8e\:6574\:4f53z\:8f74\:65f6\:ff0c\
\:53d6\:5e73\:884c\:4e8ey\:8f74\:ff09", "Text",
 CellChangeTimes->{{3.6291791856668463`*^9, 3.6291792631365814`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$Assumptions", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["a", "x"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["a", "y"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      SubscriptBox["a", "z"], "\[Element]", "Reals"}], ",", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["a", "x", "2"], "+", 
       SubsuperscriptBox["a", "y", "2"], "+", 
       SubsuperscriptBox["a", "z", "2"]}], "\[Equal]", "1"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l", "=", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["a", "x"], ",", 
     SubscriptBox["a", "y"], ",", 
     SubscriptBox["a", "z"]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"n", "=", 
  RowBox[{"l", "\[Cross]", "m"}]}], "\[IndentingNewLine]", 
 RowBox[{"m", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"n", "\[Cross]", "l"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Ln", "=", 
  SqrtBox[
   RowBox[{"Simplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"n", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], 
    "]"}]]}], "\[IndentingNewLine]", 
 RowBox[{"Lm", "=", 
  SqrtBox[
   RowBox[{"Simplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"m", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], 
    "]"}]]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.6291793061146564`*^9, 3.629179705319353*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["a", "y"], ",", 
   RowBox[{"-", 
    SubscriptBox["a", "x"]}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.6291794856865697`*^9, {3.6291795172766247`*^9, 3.6291795708783183`*^9}, 
   3.6291796496272554`*^9, {3.6291796797977085`*^9, 3.6291797071133556`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SubscriptBox["a", "x"]}], " ", 
    SubscriptBox["a", "z"]}], ",", 
   RowBox[{
    RowBox[{"-", 
     SubscriptBox["a", "y"]}], " ", 
    SubscriptBox["a", "z"]}], ",", 
   RowBox[{"1", "-", 
    SubsuperscriptBox["a", "z", "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6291794856865697`*^9, {3.6291795172766247`*^9, 3.6291795708783183`*^9}, 
   3.6291796496272554`*^9, {3.6291796797977085`*^9, 3.6291797071133556`*^9}}],

Cell[BoxData[
 SqrtBox[
  RowBox[{"1", "-", 
   SubsuperscriptBox["a", "z", "2"]}]]], "Output",
 CellChangeTimes->{
  3.6291794856865697`*^9, {3.6291795172766247`*^9, 3.6291795708783183`*^9}, 
   3.6291796496272554`*^9, {3.6291796797977085`*^9, 3.629179707128956*^9}}],

Cell[BoxData[
 SqrtBox[
  RowBox[{"1", "-", 
   SubsuperscriptBox["a", "z", "2"]}]]], "Output",
 CellChangeTimes->{
  3.6291794856865697`*^9, {3.6291795172766247`*^9, 3.6291795708783183`*^9}, 
   3.6291796496272554`*^9, {3.6291796797977085`*^9, 3.629179707128956*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1358, 709},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>2. Inherited,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (September 9, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 135, 1, 201, "Title"],
Cell[CellGroupData[{
Cell[739, 27, 118, 1, 140, "Section"],
Cell[CellGroupData[{
Cell[882, 32, 2265, 69, 348, "Input"],
Cell[3150, 103, 693, 26, 84, "Output"],
Cell[3846, 131, 72, 1, 84, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3967, 138, 213, 4, 140, "Section"],
Cell[CellGroupData[{
Cell[4205, 146, 2287, 68, 454, "Input"],
Cell[6495, 216, 740, 27, 84, "Output"],
Cell[7238, 245, 1520, 51, 159, "Output"],
Cell[8761, 298, 879, 31, 101, "Output"],
Cell[9643, 331, 1076, 34, 100, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10768, 371, 142, 1, 140, "Section"],
Cell[10913, 374, 359, 5, 60, "Text"],
Cell[CellGroupData[{
Cell[11297, 383, 2748, 83, 421, "Input"],
Cell[14048, 468, 959, 29, 91, "Output"],
Cell[15010, 499, 914, 27, 91, "Output"],
Cell[15927, 528, 276, 6, 101, "Output"],
Cell[16206, 536, 276, 6, 101, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16531, 548, 210, 3, 140, "Section"],
Cell[16744, 553, 270, 3, 60, "Text"],
Cell[CellGroupData[{
Cell[17039, 560, 1789, 56, 346, "Input"],
Cell[18831, 618, 324, 8, 84, "Output"],
Cell[19158, 628, 502, 15, 84, "Output"],
Cell[19663, 645, 268, 6, 100, "Output"],
Cell[19934, 653, 268, 6, 100, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
